home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / DOpus / opusmpega / Install < prev    next >
Encoding:
Text File  |  1998-03-28  |  20.4 KB  |  652 lines
  1. ;***************************************************************************
  2. ; * $VER: Install Opus MPEGA 3.0 (03-27-98)
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set #defaultdest "DOpus5:")
  7. (set #current_version "3.0")
  8. (set #lng @language)
  9. (complete 0)
  10.  
  11. ;****************************************************************************
  12.  
  13. (set #intro1 (cat 
  14.         "Opus MPEGA " 
  15.         #current_version 
  16.         "\n************************\n©1998 by Eckhard Ludwig"
  17.         ))
  18.  
  19. ;***************************************************************************
  20. ; deutsche Texte
  21. ;***************************************************************************
  22.  
  23. (if (= #lng "deutsch")
  24. (
  25. (set #Opt 1)
  26. (set #INFO              "Diese Installation ergänzt Directory Opus ab V5.5 um die Funktionen eines komfortablen MPEG-Audio Spielers, und installiert Filetypen zum Spielen von MPEG-Samples per Doppelklick.\n\nUnterstützt werden Amiga Standard (8bit) und AHI (14bit), sämtliche MPEG-Karten (Melody, Peggy-Plus, CD32/FMV)\nund Soundkarten über das AHI audio system by Martin Blom (Prelude, Toccata, Melody, Maestro ...).")
  27. (set GuidePrompt        "\n\nFür die Programme existiert eine umfangreiche deutschsprachige Anleitung im AmigaGuide®-Format.\nBitte wählen sie das Zielverzeichnis, empfohlen ist die Voreinstellung DOpus5:Help.")
  28. (set GuidedirPrompt    "Bitte Schublade für Guide wählen.")
  29. (set PrefsdirPrompt    "Bitte Schublade für Prefs (OpusMPEGA) wählen.")
  30. (set PrefsPrompt          "\n\nUm die Player auf Ihre Amigahardware und verschiedene Soundkarten konfigurieren zu können, existiert ein Konfigurations-Programm (OpusMPEGA).\n\nDieses können sie jetzt in ein beliebiges Verzeichnis kopieren, empfohlen ist das Prefs Verzeichnis der Workbench.")
  31. (set Installprompt      "Bitte wählen Sie für die Player Ihre bevorzugte(n) Sprachversion(en).")
  32. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  33. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst!")
  34. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst!")
  35. (set Deinstallprompt    "Es ist bereits eine neuere Version von OpusMPEGA installiert!\nSoll diese wirklich ersetzt werden?")
  36. (set ArexxDirPrompt     "Das Arexx-Verzeichnis von DirOpus5 existiert nicht?!\nBitte wählen Sie eine Schublade für die ARexx-Skripte!")
  37. (set ModulesDirPrompt   "Das Modules-Verzeichnis von DirOpus5 existiert nicht?!\nBitte installieren sie Directory Opus5 neu!")
  38. (set RexxPrompt        "\nDie Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  39. (set #Oldplayprompt    "\nMöchten sie zum Spielen per Doppelklick die alte Version (wie PlayMP2.dopus5) benutzen, oder Song's über Opus MPEGA (eigenes Abspielfenster) spielen. Siehe Hilfe.\n")
  40. (set #Oldplayhelp    "Es werden unterschiedliche Filetypes installiert. Die Filetypes der nicht gewählten Version werden nach DOpus5:Storage kopiert! Für Old ist Opus Magellan (V5.6) erforderlich.")
  41. (set PlayerCopy1Prompt  "Kopiere Play Modules ...")
  42. (set PlayerCopy2Prompt  "Kopiere Playerskripte ...")
  43. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  44. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  45. (set FiletypesPrompt    "Kopiere Opus5-Filetypes ...")
  46. (set StoragesPrompt    "Kopiere Opus5-Filetypes (Storage) ...")
  47. (set IconsPrompt        "Kopiere Opus5-ApplicationsIcons ...")
  48. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  49. (set PrefsCopyPrompt    "Kopiere Preferences ...")
  50. (set ToolsCopyPrompt    "Kopiere Tools ...")
  51. (set #t_oldinstaller
  52.         (cat
  53.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  54.             " Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  55.             " fortgesetzt werden, es können allerdings Fehler auftreten!\n\n"
  56.             "Möchten sie fortfahren?"
  57.         ))
  58. (set #t_oldinstallerhelp 
  59.         (cat
  60.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  61.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  62.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  63.         ))
  64.  
  65. (set #Removeold
  66.         (cat
  67.             "\nEine ältere Version von Opus MPEGA (PlayMP2.dopus5) wurde gefunden. Bevor die neue Version "
  68.             "installiert wird, muß Directory Opus5 aufgeräumt werden."
  69.         )
  70. )
  71. (set #exitMsg   (cat
  72.             "Zum Spielen von MPEG Audio Song's:\n\n"
  73.             "Setzen sie über Prefs/OpusMPEGA ihre Soundhardware und die Pfade zu den Programmen. Starten Sie DirectoryOpus5 neu.\n"
  74.             "Spielen sie selektierte Samples über den Knopf 'Play' oder spielen sie Samples direkt per Doppelklick.\n\n"
  75.             "Viel Spaß mit Opus MPEGA\nfür Directory Opus5.5+ wünscht\nEckhard Ludwig")
  76.         )
  77. )
  78.  
  79. ;******************************************************************************************************
  80. ; english
  81.  
  82. (
  83. (set #Opt 2)
  84.  
  85. (set #INFO              "This script installs a Directory Opus 5.5+ MPEG-audio module (GUI for the MPEGA player by Stephane TAVENARD, and for MPEG-Cards & Soundcards with AHI audio system by Martin Blom), and Opus-filetypes for Layer-2, Layer-3 and Wave MP3 to play over doubleclick.")
  86. (set GuidePrompt        "\nFor programmes exists guide, sorry only german (AmigGuide®-Format), and english readme-datei. Please select destination.")
  87. (set PrefsPrompt          "\n\nFor Preferences Soundcards and Paths exists Program (OpusMPEGA).\nPlease choose the drawer for install the preferences (Default SYS:Prefs).")
  88. (set GuidedirPrompt    "Please select guide drawer.")
  89. (set PrefsdirPrompt    "Please select Prefs drawer (OpusMPEGA).")
  90. (set InstallPrompt      "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !")
  91. (set Opus5DirPrompt     "DirectoryOpus not found?\nPlease select path to DirectoryOpus5!")
  92. (set Opus5Message       "Is DirectoryOpus correct installed?\nPlease select drawer to DirectoryOpus5 or install DirectoryOpus5 first!")
  93. (set Opus5Help          "Is DirectoryOpus correct installed?\nPlease install DirectoryOpus5 first!")
  94. (set Deinstallprompt    "There is already an newer version of OpusMPEGA installed in the directory!\nDo you want to deinstall it?")
  95. (set ArexxDirPrompt     "DOpus5:ARexx not exists?! Please select Drawer for ARexx-scripts!")
  96. (set ModulesDirPrompt   "DOpus5:Modules not exists?! Please install DirectoryOpus new!")
  97. (set RexxPrompt        "I need Arexx for run the programmes.\n\nKlick 'Proceed' for adding\n'SYS:System/Rexxmast >NIL:'\nto your 'User-Startup' file.")
  98. (set #Oldplayprompt    "\nFor play over doubleklick: Select old Version (like PlayMP2.dopus5), or play over Opus MPEGA Playwindow.\n")
  99. (set #Oldplayhelp    "Es werden unterschiedliche Filetypes installiert. Die Filetypes der nicht gewählten Version werden nach DOpus5:Storage kopiert!")
  100. (set PlayerCopy1Prompt  "Copy playmodules ...")
  101. (set PlayerCopy2Prompt  "Copy playerscript ...")
  102. (set LocaleCopyPrompt   "Copy cataloges ...")
  103. (set ButtonCopyPrompt   "Copy buttons ...")
  104. (set FiletypesPrompt    "Copy filetypes ...")
  105. (set StoragesPrompt        "Copy filetypes (Storage) ...")
  106. (set IconsPrompt        "Copy Applicationsicons ...")
  107. (set GuideCopyPrompt    "Copy guide & pics ...")
  108. (set PrefsCopyPrompt    "Copy preferences ...")
  109. (set ToolsCopyPrompt    "Copy tools ...")
  110. (set #t_oldinstaller
  111.         (cat
  112.             " You have an old version of the Installer. I'll probably"
  113.             " need version 43.3 or greater. You can continue anyway"
  114.             " but there is no guarantee it will work as it's supposed"
  115.             " to do.\n\n"
  116.             " Do you wish to continue anyway?"
  117.     ))
  118. (set #exitMsg   (cat
  119.             "For playing mpeg song's:\n\nFirst Setup (Prefs/OpusMPEGA)!\n"
  120.             "Select all mpeg files and start Opus MPEGA (Button Play), or play songs over doubleclick.\n\n"
  121.             "Much fun with players\nfor DirOpus5 wish you\nEckhard Ludwig")
  122.         )
  123. ))
  124.  
  125. ;*********************************************
  126.  
  127. (onerror (CLEANUP))
  128.  
  129. ; Cleanup any temporary mess we created
  130. (procedure CLEANUP
  131.     (delete "t:Background")
  132.     (delete "t:Background.prefs")
  133.     ;(delete "t:Logopic")
  134.     ;(delete "t:Logopic.prefs")
  135. )
  136.  
  137. (run "copy OpusMPEGA.ilbm TO T:Background")
  138. (run "copy Background.prefs TO T:Background.prefs")
  139. ;(run "copy LogoPic TO T:Logopic")
  140. ;(run "copy LogoPic.prefs TO T:Logopic.prefs")
  141.  
  142. (run "run InstallerFX t:background")
  143. (run "wait 1")
  144.  
  145. ;***************************************************************************
  146.  
  147. (if (< @installer-version (+ (* 43 65536) 3))
  148. (
  149.     (if (not (askbool
  150.         (prompt #t_oldinstaller)
  151.         (help #t_oldinstallerhelp)
  152.     ))
  153.     (
  154.         (abort (cat "\n\n" #t_oldinstallerhelp))
  155.     ))
  156. ))
  157.  
  158. ;***************************************************************************
  159.  
  160. (message #intro1 "\n\n" #INFO)
  161. (welcome)
  162.  
  163. ;***************************************************************************
  164. ; check if Directory Opus 5 is already installed
  165. ;***************************************************************************
  166.  
  167. (if (not (exists (tackon #defaultdest "DirectoryOpus") (noreq)))
  168.     ((message Opus5Message)
  169.     (set Opus5path 
  170.     (askdir
  171.         (prompt Opus5DirPrompt)
  172.         (help @askdir-help)
  173.         (default "Work:")
  174.     ))
  175.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  176.        (abort Opus5Help)
  177.     )    
  178.     (makeassign "Dopus5" Opus5path (safe))
  179. ))
  180.  
  181. ;***************************************************************************
  182. ; test Dopus5:Arexx & Modules exists & versionstest newer version
  183. ;***************************************************************************
  184.  
  185. (set #arexxdest (tackon #defaultdest "ARexx"))
  186. (if (= @user-level 2)
  187.   (if (not (exists #arexxdest (noreq)))
  188.     (set #arexxdest (askdir
  189.     (prompt ArexxDirPrompt)
  190.     (help    @askdir-help)
  191.     (default "Rexx:")
  192. ))))
  193.  
  194. (set #modulesdest (tackon #defaultdest "Modules"))
  195.   (if (not (exists #modulesdest (noreq)))
  196.     (exit (ModulesDirPrompt))
  197.   )
  198.  
  199.  
  200. (if (exists (tackon #modulesdest "OpusMPEGA.dopus5") (noreq))
  201.    ((set version (getversion (tackon #modulesdest "OpusMPEGA.dopus5")))
  202.    (if (> version (getversion "Modules/OpusMPEGA.dopus5"))
  203.        (if (not (askbool 
  204.        (prompt Deinstallprompt)
  205.        (help @askbool-help)
  206.        (default 0)))
  207.           (exit (quiet)))
  208. )))
  209.  
  210. (if (exists (tackon #arexxdest "Play-MPAudio.dopus5") (noreq))
  211.    ((set version (getversion (tackon #arexxdest "Play-MPAudio.dopus5")))
  212.    (if (> version (getversion "ARexx/Play-MPAudio.dopus5"))
  213.        (if (not (askbool 
  214.        (prompt Deinstallprompt)
  215.        (help @askbool-help)
  216.        (default 0)))
  217.           (exit (quiet)))
  218. )))
  219.  
  220. ;***************************************************************************
  221. ; delete older version
  222. ;***************************************************************************
  223.  
  224. (if (exists (tackon #arexxdest "PlayerMP2.dopus5") (noreq))
  225.     (delete (tackon #arexxdest "PlayerMP2.dopus5")
  226.         (prompt #Removeold)
  227.         (help " ")
  228.         (confirm "EXPERT")
  229.         (optional "nofail" "askuser")
  230.     )
  231. )
  232. (if (exists (tackon #arexxdest "PlayMP2.dopus5") (noreq))
  233.     (delete (tackon #arexxdest "PlayMP2.dopus5")
  234.        (optional "force")
  235.     )
  236. )
  237. (if (exists (tackon #defaultdest "Buttons/mpegplayer_default") (noreq))
  238.     (delete (tackon #defaultdest "Buttons/mpegplayer_default")
  239.        (optional "force")
  240.     )
  241. )
  242. (if (exists (tackon #defaultdest "docs/MPEGA-Player.guide") (noreq))
  243.     (delete (tackon #defaultdest "docs/MPEGA-Player.guide")
  244.        (optional "force")
  245.     )
  246. )
  247. (if (exists (tackon #defaultdest "docs/MPEGA-Player.guide.info") (noreq))
  248.     (delete (tackon #defaultdest "docs/MPEGA-Player.guide.info")
  249.        (optional "force")
  250.     )
  251. )
  252. (if (exists "SYS:Prefs/Player-setup" (noreq))
  253.     (delete "SYS:Prefs/Player-setup"
  254.        (optional "force")
  255.     )
  256. )
  257. (if (exists "SYS:Prefs/Player-setup.info" (noreq))
  258.     (delete "SYS:Prefs/Player-setup.info"
  259.        (optional "force")
  260.     )
  261. )
  262. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer2") (noreq))
  263.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer2")
  264.        (optional "force")
  265.     )
  266. )
  267. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer3") (noreq))
  268.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer3")
  269.        (optional "force")
  270.     )
  271. )
  272. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG") (noreq))
  273.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG")
  274.        (optional "force")
  275.     )
  276. )
  277.  
  278. ;***************************************************************************
  279. ;install cataloge
  280. ;***************************************************************************
  281.  
  282. (IF (= #lng "All")
  283.         (set #Opt 511))
  284.  
  285. (set installchoice
  286.        (askoptions
  287.        (prompt InstallPrompt)
  288.        (help @askoptions-help)
  289.        (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  290.        (default #Opt)
  291. ))
  292.  
  293. (set n 0)
  294.  
  295. (while (<> n 1)
  296.  
  297.   ((set filepat
  298.           (select n "OpusMPEGA.catalog"))
  299.  
  300.    (set n (+ n 1))
  301.  
  302. (IF (BITAND installchoice 1)
  303.   (copyfiles
  304.        (prompt LocaleCopyPrompt)
  305.        (help @copyfiles-help)
  306.        (source "Locale/Catalogs/deutsch")
  307.        (dest "SYS:Locale/Catalogs/deutsch")
  308.        (pattern filepat)
  309.        (confirm "EXPERT")
  310.        (optional "force" "askuser" "nofail")
  311.   ))
  312.  
  313. (IF (OR (<> @language "deutsch") (BITAND installchoice 2))
  314.   (copyfiles
  315.        (prompt LocaleCopyPrompt)
  316.        (help @copyfiles-help)
  317.        (source "Locale/Catalogs/english")
  318.        (dest "SYS:Locale/Catalogs/english")
  319.        (pattern filepat)
  320.        (confirm "EXPERT")
  321.        (optional "force" "askuser" "nofail")
  322.   ))
  323.  
  324. (IF (BITAND installchoice 4)
  325.   (copyfiles
  326.        (prompt LocaleCopyPrompt)
  327.        (help @copyfiles-help)
  328.        (source "Locale/Catalogs/dansk")
  329.        (dest "SYS:Locale/Catalogs/dansk")
  330.        (pattern filepat)
  331.        (confirm "EXPERT")
  332.        (optional "force" "askuser" "nofail")
  333.   ))
  334.  
  335. (IF (BITAND installchoice 8)
  336.   (copyfiles
  337.        (prompt LocaleCopyPrompt)
  338.        (help @copyfiles-help)
  339.        (source "Locale/Catalogs/français")
  340.        (dest "SYS:Locale/Catalogs/français")
  341.        (pattern filepat)
  342.        (confirm "EXPERT")
  343.        (optional "force" "askuser" "nofail")
  344.   ))
  345.  
  346. (IF (BITAND installchoice 16)
  347.   (copyfiles
  348.        (prompt LocaleCopyPrompt)
  349.        (help @copyfiles-help)
  350.        (source "Locale/Catalogs/italiano")
  351.        (dest "SYS:Locale/Catalogs/italiano")
  352.        (pattern filepat)
  353.        (confirm "EXPERT")
  354.        (optional "force" "askuser" "nofail")
  355.   ))
  356.  
  357. (IF (BITAND installchoice 32)
  358.   (copyfiles
  359.        (prompt LocaleCopyPrompt)
  360.        (help @copyfiles-help)
  361.        (source "Locale/Catalogs/nederlands")
  362.        (dest "SYS:Locale/Catalogs/nederlands")
  363.        (pattern filepat)
  364.        (confirm "EXPERT")
  365.        (optional "force" "askuser" "nofail")
  366.   ))
  367.  
  368. (IF (BITAND installchoice 64)
  369.   (copyfiles
  370.        (prompt LocaleCopyPrompt)
  371.        (help @copyfiles-help)
  372.        (source "Locale/Catalogs/norsk")
  373.        (dest "SYS:Locale/Catalogs/norsk")
  374.        (pattern filepat)
  375.        (confirm "EXPERT")
  376.        (optional "force" "askuser" "nofail")
  377.   ))
  378.  
  379. (IF (BITAND installchoice 128)
  380.   (copyfiles
  381.        (prompt LocaleCopyPrompt)
  382.        (help @copyfiles-help)
  383.        (source "Locale/Catalogs/suomi")
  384.        (dest "SYS:Locale/Catalogs/suomi")
  385.        (pattern filepat)
  386.        (confirm "EXPERT")
  387.        (optional "force" "askuser" "nofail")
  388.   ))
  389.  
  390. (IF (BITAND installchoice 256)
  391.   (copyfiles
  392.        (prompt LocaleCopyPrompt)
  393.        (help @copyfiles-help)
  394.        (source "Locale/Catalogs/svenska")
  395.        (dest "SYS:Locale/Catalogs/svenska")
  396.        (pattern filepat)
  397.       (confirm "EXPERT")
  398.        (optional "force" "askuser" "nofail")
  399.   ))
  400.  
  401. ))
  402.  
  403. (complete 15)
  404.  
  405. (IF (<> #lng "deutsch")
  406.     (message
  407.     (cat    "\n\nIf you want to create own versions of\n"
  408.         "the catalogs please have a look at the\n"
  409.         "distributions Locale directory. You will\n"
  410.         "find the .cd files there. If you\n"
  411.         "have created you own translations, please\n"
  412.         "don`t keep it a secret"
  413.     ))
  414. )
  415.  
  416. ;***************************************************************************
  417. ; copy appicons
  418. ;***************************************************************************
  419.  
  420. (copyfiles
  421.        (prompt IconsPrompt)
  422.        (help @copyfiles-help)
  423.        (source "Icons")
  424.        (dest (tackon #defaultdest "Icons"))
  425.        (optional "force" "askuser")
  426.        (confirm "EXPERT")
  427.        (pattern "#?")
  428.        (files)
  429.        (infos)
  430. )
  431.  
  432. (complete 20)
  433.  
  434. (copyfiles
  435.        (prompt IconsPrompt)
  436.        (help @copyfiles-help)
  437.        (source "Icons/FileTypes")
  438.        (dest (tackon #defaultdest "Icons/FileTypes"))
  439.        (optional "force" "askuser")
  440.        (confirm "EXPERT")
  441.        (pattern "#?")
  442.        (files)
  443.        (infos)
  444. )
  445.  
  446. (complete 25)
  447.  
  448. ;***************************************************************************
  449. ; copy the files
  450. ;***************************************************************************
  451.  
  452. (copyfiles
  453.    (prompt PlayerCopy1Prompt)
  454.    (help @copyfiles-help)
  455.    (source "Modules")
  456.    (dest #modulesdest)
  457.    (pattern "#?")
  458.    (confirm "EXPERT")
  459.    (optional "force" "askuser")
  460. )
  461.  
  462. (complete 30)
  463.  
  464. (copyfiles
  465.    (prompt PlayerCopy2Prompt)
  466.    (help @copyfiles-help)
  467.    (source "ARexx")
  468.    (dest #arexxdest)
  469.    (pattern "#?")
  470.    (confirm "EXPERT")
  471.    (optional "force" "askuser")
  472. )
  473.  
  474. (complete 35)
  475.  
  476. ;***************************************************************************
  477. ; copy buttons
  478. ;***************************************************************************
  479.  
  480. (copyfiles
  481.          (source "buttons")
  482.          (dest (tackon #defaultdest "Buttons"))
  483.          (optional "force" "askuser")
  484.          (safe)
  485.          (pattern "#?")
  486.          (files)
  487. )
  488.  
  489. (complete 40)
  490.  
  491. ;***************************************************************************
  492. ; copy filetypes
  493. ;***************************************************************************
  494.  
  495. (set #Dir1 "Filetypes")
  496. (set #Dir2 "Storage")
  497.  
  498. (if (>= @user-level 1)
  499.     (
  500.     (set #OldPlay (askchoice
  501.         (prompt #Oldplayprompt)
  502.         (help    #Oldplayhelp)
  503.         (choices "Old (Opus Magellan required)" "Opus MPEGA")
  504.         (default 0)
  505.     ))
  506.  
  507.     (if (= #OldPlay 1)
  508.         (set #Dir2 "Filetypes")
  509.         (set #Dir1 "Storage")
  510.     )
  511. ))
  512.  
  513. (complete 45)
  514.  
  515. (copyfiles
  516.        (prompt FiletypesPrompt)
  517.        (help @copyfiles-help)
  518.        (source #Dir1)
  519.        (dest (tackon #defaultdest "Filetypes"))
  520.        (optional "force" "askuser")
  521.        (confirm "EXPERT")
  522.        (pattern "#?")
  523.        (files)
  524.        (infos)
  525. )
  526.  
  527. (complete 50)
  528.  
  529. (copyfiles
  530.        (prompt StoragesPrompt)
  531.        (help @copyfiles-help)
  532.        (source #Dir2)
  533.        (dest (tackon #defaultdest "Storage"))
  534.        (optional "force" "askuser")
  535.        (confirm "EXPERT")
  536.        (pattern "#?")
  537.        (files)
  538.        (infos)
  539. )
  540.  
  541. (complete 55)
  542.  
  543. ;***************************************************************************
  544. ; copy cli-tools
  545. ;***************************************************************************
  546.  
  547. (copyfiles
  548.        (prompt ToolsCopyPrompt)
  549.        (help @copyfiles-help)
  550.        (source "c")
  551.        (dest "SYS:C")
  552.        (pattern "#?")
  553.        (optional "force" "askuser")
  554.        (confirm "EXPERT")
  555.        (files)
  556. )
  557.  
  558. (complete 60)
  559.  
  560. ;***************************************************************************
  561. ; ADD REXX TO USER-STARTUP
  562. ;***************************************************************************
  563.  
  564. (if
  565.     (startup "ARexx"
  566.         (prompt RexxPrompt)
  567.         (help @startup-help)
  568.         (command "SYS:System/RexxMast >NIL:")
  569.     )
  570.     (run "SYS:System/RexxMast >NIL:")
  571. )
  572.  
  573. (complete 65)
  574.  
  575. ;***************************************************************************
  576. ; set #guidedir
  577. ;***************************************************************************
  578.  
  579. (set #GuideDir (tackon #defaultdest "Help"))
  580. (if (= @user-level 2)
  581.     (
  582.     (message GuidePrompt)
  583.     (set #GuideDir (askdir
  584.         (prompt GuidedirPrompt)
  585.         (help    @askdir-help)
  586.         (default (tackon #defaultdest "Help"))
  587.     )
  588. )))
  589.  
  590. (complete 70)
  591.  
  592. ;***************************************************************************
  593. ; install guide
  594. ;***************************************************************************
  595.  
  596. (copyfiles
  597.     (prompt    GuideCopyPrompt)
  598.     (help    @copyfiles-help)
  599.         (source "Help")
  600.         (dest #GuideDir)
  601.         (confirm "EXPERT")
  602.      (pattern "#?")
  603.         (optional "force" "askuser")
  604.         (files)
  605.     (infos)
  606. )
  607.  
  608. (complete 80)
  609.  
  610. ;***************************************************************************
  611. ; set Prefsdir
  612. ;***************************************************************************
  613.  
  614. (set #PrefsDir "SYS:PREFS")
  615. (if (= @user-level 2)
  616.     (
  617.     (message PrefsPrompt)
  618.     (set #PrefsDir (askdir
  619.         (prompt PrefsdirPrompt)
  620.         (help    @askdir-help)
  621.         (default "SYS:PREFS")
  622.     )))
  623. )
  624.  
  625. (complete 85)
  626.  
  627. (copyfiles
  628.     (prompt    PrefsCopyPrompt)
  629.     (help    @copyfiles-help)
  630.         (source "Prefs")
  631.         (dest     #PrefsDir)
  632.         (confirm "EXPERT")
  633.      (pattern "#?")
  634.         (optional "force" "askuser")
  635.         (files)
  636.     (infos)
  637. )
  638.  
  639. (complete 95)
  640.  
  641. (if (<> 1 (exists "SYS:C/Installer" (noreq)))
  642.      (copyfiles
  643.         (source "Installer")
  644.             (dest "SYS:C")
  645.             (optional "force" "askuser")
  646.       )
  647. )
  648.  
  649. (complete 100)
  650. (CLEANUP)
  651. (exit #exitMsg (quiet))
  652.